home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / tv.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  3.8 KB  |  119 lines
  1. 100  '
  2. 105  SCREEN 0,0,0:COLOR 2,0,0:WIDTH 80:KEY OFF:CLS
  3. 120  PRINT "Congratulations!  You are about to run the silliest program ever
  4. 130  PRINT "written for this computer.
  5. 140  PRINT:PRINT "Tap any key to continue...";
  6. 150  Z$=INKEY$:IF Z$="" THEN 150
  7. 1000  '
  8. 1005  CLS
  9. 1010  PRINT:PRINT "-Menu-"
  10. 1020  PRINT:PRINT " 1 - 'Leave It To Beaver!'"
  11. 1030  PRINT:PRINT " 2 - 'The Tonight Show'"
  12. 1040  PRINT:PRINT " 3 - 'Beverly Hillbillies'"
  13. 1050  PRINT:PRINT " 4 - 'The Flintstones'
  14. 1060  PRINT:PRINT " 5 - 'The Aadams Family'"
  15. 1070  PRINT:PRINT " 6 - The Music Used While Contestants Enter 'Final Jeapordy!'
  16. 1080  PRINT:PRINT " E - Please, sir, I've had quite enough.
  17. 2010  LOCATE 19,1:PRINT "Deposit 25 cents and enter one selection: ";
  18. 2020  A$=INKEY$: IF A$="" THEN 2020
  19. 2030  IF A$="E" OR A$="e" THEN 32700
  20. 2041  IF A$="1" THEN 9000
  21. 2042  IF A$="2" THEN 9100
  22. 2043  IF A$="3" THEN 9200
  23. 2044  IF A$="4" THEN 9300
  24. 2045  IF A$="5" THEN 9500
  25. 2046  IF A$="6" THEN 9600
  26. 2090  LOCATE 21,1:PRINT "That's not on the playlist.  Try again."
  27. 2095  GOTO 2010
  28. 9000  '
  29. 9001  '  "Leave It To Beaver!"
  30. 9002  '
  31. 9005  CLS:LOCATE 13,15:PRINT " 'Gee, Whitey, those were my Dad's best golf clubs!'"
  32. 9010  PLAY "MS T190"
  33. 9015  PLAY "O2 L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >D"
  34. 9020  PLAY "L8 C<B>CF L4 D L8 <B- L4 G.. P16"
  35. 9025  PLAY "L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >D"
  36. 9030  PLAY "L8 C<B>CFD<GE L4 F.. P8"
  37. 9035  PLAY "O3 L4 A L8 A L4 G. L8 FGF L4 E- L8 EDE-EFGG+ L4 A.. P8"
  38. 9040  PLAY "O1 L4 G L8 G L4 F. L8 EFE L4 D- L8 DDEFG>G<G >C<B-AG. P16"
  39. 9045  PLAY "O2 L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >D"
  40. 9050  PLAY "L8 C<B>CF L4 D L8 <B- L4 G.. P16"
  41. 9055  PLAY "O3 L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >D"
  42. 9060  PLAY "L8 C<B>CFD<GE L4 F. L8 >F"
  43. 9099  GOTO 1000
  44. 9100  '
  45. 9101  '  "Johnny's Theme"
  46. 9102  '
  47. 9105  CLS:LOCATE 13,25:PRINT " 'Wrong again, 8088-breath!' "
  48. 9110  PLAY "O3 MN T170"
  49. 9115  PLAY "L4 A L8 G P16 F P16 L4 E P32 D.. P16.. L8 D.F P16 AG... P4
  50. 9120  PLAY "L4 A L8 G P16 F P16 L16 E.DE. L4 D.. P16.. L8 D.F P16 AG... P4
  51. 9125  PLAY "L16 GA>C L8 <G P16 F P16 L16 E.DE. L4 D. P16.. L8 D.F P16 AG... P4
  52. 9130  PLAY "GF P2 GF P2 L16 G. P16 G- L4 F P4 L8 MS F.E.C.E P32 AGF.. P32
  53. 9135  PLAY "MN L8 >D<A P2 >D<G P2
  54. 9140  PLAY "L4 A L8 G P16 F P16 L4 E P32 D. P16.
  55. 9145  PLAY "O1 L8 F P16 L16 C.<B.>C. L8 D-.C. P4 L4 O3 EA
  56. 9199  GOTO 1000
  57. 9200  '
  58. 9201  ' "Beverly Hillbillies"
  59. 9202  '
  60. 9205  CLS:LOCATE 13,15:PRINT " 'Hills, that is... Swimmin' Pools... Movie Stars.'"
  61. 9210  PLAY "O2 MS T190"
  62. 9215  PLAY "L8 CCFCFGAAFF L4 G P32 G P32 C. P16"
  63. 9220  PLAY "L8 C L4 E L8 EF L4 G L8 FEFGFD L4 C. P16"
  64. 9225  PLAY "L8 C L4 FFA L8 GFB-AB->C L4 D. P16"
  65. 9230  PLAY "L8 D L4 C L8 CC L4 C L8 CC<CD L4 EF..."
  66. 9299  GOTO 1000
  67. 9300  '
  68. 9301  ' "The Flintstones"
  69. 9302  '
  70. 9305  CLS:LOCATE 13,31:PRINT "'Yabba Dabba Doo!'"
  71. 9315  PLAY "L8 MS O3 T170"
  72. 9320  PLAY "L8 G.. P64 C P4 >C. P32 <AG.. P64 C P4 G. P64 FEEFG L4 CDE P8 <D.G> P32."
  73. 9325  PLAY "L8 G.. P64 C P4 >C. P32 <AG.. P64 C P4 G. P64 FEEFG L4 CDC... P4"
  74. 9330  PLAY "L4 BE P8. L8 >C.<BBAABA.. P4 L4 AD P8. L8 B.AAGGAG L16 >G.G..G.G.<"
  75. 9335  PLAY "L8 G.. P64 C P4 >C. P32 <AG.. P64 C P4 G. P64 FEEFG L4 CD P4 "
  76. 9340  PLAY "L8 <EFG L4 CD P4 L8 >EFG L4 >CDC..."
  77. 9345  PLAY "L4 <G. L8 EDC P8 L4 >>C. L8 C<BA P4 L4 <<G P4 C P4 >G P4 F P4.
  78. 9350  PLAY "L4 >EFG L2 >CDC.."
  79. 9399  GOTO 1000
  80. 9500  '
  81. 9501  ' "The Adaams Family"
  82. 9502  '
  83. 9505  CLS:LOCATE 13,17:PRINT "'Morticia, I love it when you speak French.'"
  84. 9525  GOSUB 9545
  85. 9530  GOSUB 9565
  86. 9535  GOSUB 9545
  87. 9540  GOSUB 9565:GOTO 9599
  88. 9545  PLAY "O3 T220 L8 CDEF P4 O0 L4 F P8 F P8"
  89. 9550  PLAY "O3 L8 DEF#G P4 O1 L4 G P8 G P8"
  90. 9555  PLAY "O3 L8 DEF#G P4 DEF#G P4 CDEF P4 O1 L4 F P8 F P8"
  91. 9560  RETURN
  92. 9565  PLAY "P4 T187"
  93. 9570  PLAY "O3 L8 CF.AF.D O2 B-. O3 G P4"
  94. 9575  PLAY "FE.GE.C O2 A. O3 F P4"
  95. 9580  PLAY "CF.AF.D O2 B-. O3 G P4"
  96. 9585  IF Z=1 THEN PLAY "T100"
  97. 9590  PLAY "F L64EF L8 E.CD.EF P4"
  98. 9595  RETURN
  99. 9599  GOTO 1000
  100. 9600  '
  101. 9601  ' The "Final Jepoardy Theme"
  102. 9602  '
  103. 9605  CLS:LOCATE 13,15:PRINT "'Please keep your answer in the form of a question.'"
  104. 9625  PLAY "T150 O3 L4"
  105. 9630  PLAY "DGD <G >DGD P4"
  106. 9635  PLAY "DGDG MS B P8 MN L8 AGF#EE- L4"
  107. 9640  PLAY "DGD <G >DGD P4"
  108. 9645  PLAY "MS G P8 L8 E L4 DC MN <BA L4 G"
  109. 9650  PLAY "P4"
  110. 9655  PLAY "O3 L4"
  111. 9660  PLAY "EAE <A >EAE P4"
  112. 9665  PLAY "EAEA MS >C# P8 MN L8 <BAG#F#F L4"
  113. 9670  PLAY "EAE <A >EAE P4"
  114. 9675  PLAY "MS A P8 L8 F# L4 ED MN L2 MS C#<B L4 MN A"
  115. 9680  PLAY "O1 L4 AA"
  116. 9699  GOTO 1000
  117. 32700  '
  118. 32767  CLS:KEY ON:END
  119.